﻿' Developer Express Code Central Example:
' How to customize the Edit Appointment form to show custom fields
' 
' This example illustrates the use of a custom form to enable the end-user to edit
' custom fields. The custom form is invoked instead of the default one by handling
' the SchedulerControl.EditAppointmentFormShowing
' (ms-help://DevExpress.NETv8.2/DevExpress.XtraScheduler/DevExpressXtraSchedulerSchedulerControl_EditAppointmentFormShowingtopic.htm)
' event.
' 
' See also:
' For a simple application that enables you to handle custom
' fields, see the http://www.devexpress.com/scid=E2782 article.
' 
' You can find sample updates and versions for different programming languages here:
' http://www.devexpress.com/example=E152

Imports Microsoft.VisualBasic
Imports System
Partial Public Class ActivityEditForm
    ''' <summary>
    ''' Required designer variable.
    ''' </summary>
    Private components As System.ComponentModel.IContainer = Nothing

    ''' <summary>
    ''' Clean up any resources being used.
    ''' </summary>
    ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso (components IsNot Nothing) Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

#Region "Windows Form Designer generated code"

    ''' <summary>
    ''' Required method for Designer support - do not modify
    ''' the contents of this method with the code editor.
    ''' </summary>
    Private Sub InitializeComponent()
        Me.lblGrp = New DevExpress.XtraEditors.LabelControl()
        Me.lblClasse = New DevExpress.XtraEditors.LabelControl()
        Me.lblCategory = New DevExpress.XtraEditors.LabelControl()
        Me.lblType = New DevExpress.XtraEditors.LabelControl()
        Me.mslType = New SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit()
        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.mslCategory = New SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit()
        Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.mslClasse = New SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit()
        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.mslGroup = New SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit()
        Me.MetaSearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
        CType(Me.chkAllDay.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtStartDate.Properties.VistaTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtStartDate.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtEndDate.Properties.VistaTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtEndDate.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtStartTime.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtEndTime.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtLabel.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtShowTimeAs.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tbSubject.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtResource.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.edtResources.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.chkReminder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tbDescription.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.cbReminder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tbLocation.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.panel1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.panel1.SuspendLayout()
        Me.progressPanel.SuspendLayout()
        CType(Me.tbProgress, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tbProgress.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mslType.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mslCategory.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mslClasse.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mslGroup.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.MetaSearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'lblLabel
        '
        Me.lblLabel.Appearance.BackColor = System.Drawing.Color.Transparent
        '
        'chkAllDay
        '
        '
        'edtStartDate
        '
        Me.edtStartDate.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0)
        Me.edtStartDate.Size = New System.Drawing.Size(123, 20)
        '
        'edtEndDate
        '
        Me.edtEndDate.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0)
        Me.edtEndDate.Size = New System.Drawing.Size(123, 20)
        '
        'edtStartTime
        '
        Me.edtStartTime.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0)
        Me.edtStartTime.Location = New System.Drawing.Point(227, 79)
        '
        'edtEndTime
        '
        Me.edtEndTime.EditValue = New Date(2005, 3, 31, 0, 0, 0, 0)
        Me.edtEndTime.Location = New System.Drawing.Point(227, 103)
        '
        'edtLabel
        '
        '
        'edtShowTimeAs
        '
        Me.edtShowTimeAs.Size = New System.Drawing.Size(219, 20)
        '
        'tbSubject
        '
        Me.tbSubject.Size = New System.Drawing.Size(419, 20)
        '
        'edtResource
        '
        '
        'edtResources
        '
        '
        'chkReminder
        '
        '
        'tbDescription
        '
        Me.tbDescription.Size = New System.Drawing.Size(499, 137)
        '
        'cbReminder
        '
        '
        'tbLocation
        '
        Me.tbLocation.Size = New System.Drawing.Size(219, 20)
        '
        'panel1
        '
        Me.panel1.Location = New System.Drawing.Point(328, 41)
        '
        'progressPanel
        '
        Me.progressPanel.Size = New System.Drawing.Size(499, 30)
        '
        'tbProgress
        '
        Me.tbProgress.Properties.LabelAppearance.Options.UseTextOptions = True
        Me.tbProgress.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
        Me.tbProgress.Size = New System.Drawing.Size(390, 27)
        '
        'lblPercentComplete
        '
        Me.lblPercentComplete.Appearance.BackColor = System.Drawing.Color.Transparent
        '
        'lblPercentCompleteValue
        '
        Me.lblPercentCompleteValue.Appearance.BackColor = System.Drawing.Color.Transparent
        Me.lblPercentCompleteValue.Location = New System.Drawing.Point(481, 10)
        '
        'lblGrp
        '
        Me.lblGrp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblGrp.Location = New System.Drawing.Point(521, 204)
        Me.lblGrp.Name = "lblGrp"
        Me.lblGrp.Size = New System.Drawing.Size(39, 13)
        Me.lblGrp.TabIndex = 29
        Me.lblGrp.Text = "Groupe:"
        '
        'lblClasse
        '
        Me.lblClasse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblClasse.Location = New System.Drawing.Point(521, 230)
        Me.lblClasse.Name = "lblClasse"
        Me.lblClasse.Size = New System.Drawing.Size(35, 13)
        Me.lblClasse.TabIndex = 30
        Me.lblClasse.Text = "Classe:"
        '
        'lblCategory
        '
        Me.lblCategory.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblCategory.Location = New System.Drawing.Point(521, 256)
        Me.lblCategory.Name = "lblCategory"
        Me.lblCategory.Size = New System.Drawing.Size(49, 13)
        Me.lblCategory.TabIndex = 31
        Me.lblCategory.Text = "Category:"
        '
        'lblType
        '
        Me.lblType.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblType.Location = New System.Drawing.Point(521, 282)
        Me.lblType.Name = "lblType"
        Me.lblType.Size = New System.Drawing.Size(28, 13)
        Me.lblType.TabIndex = 32
        Me.lblType.Text = "Type:"
        '
        'mslType
        '
        Me.mslType.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.mslType.Location = New System.Drawing.Point(576, 279)
        Me.mslType.Name = "mslType"
        Me.mslType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.mslType.Properties.View = Me.GridView2
        Me.mslType.QueryName = Nothing
        Me.mslType.Size = New System.Drawing.Size(196, 20)
        Me.mslType.SQLWhere = Nothing
        Me.mslType.TabIndex = 36
        '
        'GridView2
        '
        Me.GridView2.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
        Me.GridView2.Name = "GridView2"
        Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False
        Me.GridView2.OptionsView.ShowGroupPanel = False
        '
        'mslCategory
        '
        Me.mslCategory.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.mslCategory.Location = New System.Drawing.Point(576, 253)
        Me.mslCategory.Name = "mslCategory"
        Me.mslCategory.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.mslCategory.Properties.View = Me.GridView3
        Me.mslCategory.QueryName = Nothing
        Me.mslCategory.Size = New System.Drawing.Size(196, 20)
        Me.mslCategory.SQLWhere = Nothing
        Me.mslCategory.TabIndex = 35
        '
        'GridView3
        '
        Me.GridView3.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
        Me.GridView3.Name = "GridView3"
        Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
        Me.GridView3.OptionsView.ShowGroupPanel = False
        '
        'mslClasse
        '
        Me.mslClasse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.mslClasse.Location = New System.Drawing.Point(576, 227)
        Me.mslClasse.Name = "mslClasse"
        Me.mslClasse.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.mslClasse.Properties.View = Me.GridView1
        Me.mslClasse.QueryName = Nothing
        Me.mslClasse.Size = New System.Drawing.Size(196, 20)
        Me.mslClasse.SQLWhere = Nothing
        Me.mslClasse.TabIndex = 34
        '
        'GridView1
        '
        Me.GridView1.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
        Me.GridView1.Name = "GridView1"
        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
        Me.GridView1.OptionsView.ShowGroupPanel = False
        '
        'mslGroup
        '
        Me.mslGroup.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.mslGroup.Location = New System.Drawing.Point(576, 201)
        Me.mslGroup.Name = "mslGroup"
        Me.mslGroup.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.mslGroup.Properties.View = Me.MetaSearchLookUpEdit1View
        Me.mslGroup.QueryName = Nothing
        Me.mslGroup.Size = New System.Drawing.Size(196, 20)
        Me.mslGroup.SQLWhere = Nothing
        Me.mslGroup.TabIndex = 33
        '
        'MetaSearchLookUpEdit1View
        '
        Me.MetaSearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
        Me.MetaSearchLookUpEdit1View.Name = "MetaSearchLookUpEdit1View"
        Me.MetaSearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
        Me.MetaSearchLookUpEdit1View.OptionsView.ShowGroupPanel = False
        '
        'AppointmentEditForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(779, 434)
        Me.Controls.Add(Me.mslType)
        Me.Controls.Add(Me.mslCategory)
        Me.Controls.Add(Me.mslClasse)
        Me.Controls.Add(Me.mslGroup)
        Me.Controls.Add(Me.lblType)
        Me.Controls.Add(Me.lblCategory)
        Me.Controls.Add(Me.lblClasse)
        Me.Controls.Add(Me.lblGrp)
        Me.LookAndFeel.SkinName = "Blue"
        Me.LookAndFeel.UseDefaultLookAndFeel = False
        Me.Name = "AppointmentEditForm"
        Me.Text = "SchedulerEditForm"
        Me.Controls.SetChildIndex(Me.edtShowTimeAs, 0)
        Me.Controls.SetChildIndex(Me.edtEndTime, 0)
        Me.Controls.SetChildIndex(Me.edtEndDate, 0)
        Me.Controls.SetChildIndex(Me.btnRecurrence, 0)
        Me.Controls.SetChildIndex(Me.btnDelete, 0)
        Me.Controls.SetChildIndex(Me.btnCancel, 0)
        Me.Controls.SetChildIndex(Me.lblShowTimeAs, 0)
        Me.Controls.SetChildIndex(Me.lblEndTime, 0)
        Me.Controls.SetChildIndex(Me.tbLocation, 0)
        Me.Controls.SetChildIndex(Me.lblSubject, 0)
        Me.Controls.SetChildIndex(Me.lblLocation, 0)
        Me.Controls.SetChildIndex(Me.tbSubject, 0)
        Me.Controls.SetChildIndex(Me.lblStartTime, 0)
        Me.Controls.SetChildIndex(Me.btnOk, 0)
        Me.Controls.SetChildIndex(Me.edtStartDate, 0)
        Me.Controls.SetChildIndex(Me.edtStartTime, 0)
        Me.Controls.SetChildIndex(Me.panel1, 0)
        Me.Controls.SetChildIndex(Me.progressPanel, 0)
        Me.Controls.SetChildIndex(Me.tbDescription, 0)
        Me.Controls.SetChildIndex(Me.lblGrp, 0)
        Me.Controls.SetChildIndex(Me.lblClasse, 0)
        Me.Controls.SetChildIndex(Me.lblCategory, 0)
        Me.Controls.SetChildIndex(Me.lblType, 0)
        Me.Controls.SetChildIndex(Me.mslGroup, 0)
        Me.Controls.SetChildIndex(Me.mslClasse, 0)
        Me.Controls.SetChildIndex(Me.mslCategory, 0)
        Me.Controls.SetChildIndex(Me.mslType, 0)
        CType(Me.chkAllDay.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtStartDate.Properties.VistaTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtStartDate.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtEndDate.Properties.VistaTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtEndDate.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtStartTime.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtEndTime.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtLabel.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtShowTimeAs.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tbSubject.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtResource.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.edtResources.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.chkReminder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tbDescription.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.cbReminder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tbLocation.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.panel1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.panel1.ResumeLayout(False)
        Me.panel1.PerformLayout()
        Me.progressPanel.ResumeLayout(False)
        Me.progressPanel.PerformLayout()
        CType(Me.tbProgress.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tbProgress, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mslType.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mslCategory.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mslClasse.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mslGroup.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.MetaSearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents lblGrp As DevExpress.XtraEditors.LabelControl
    Friend WithEvents lblClasse As DevExpress.XtraEditors.LabelControl
    Friend WithEvents lblCategory As DevExpress.XtraEditors.LabelControl
    Friend WithEvents lblType As DevExpress.XtraEditors.LabelControl
    Friend WithEvents mslGroup As SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit
    Friend WithEvents MetaSearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents mslClasse As SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit
    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents mslType As SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit
    Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents mslCategory As SCIEF.ActiveFramework.WinFormExt.MetaSearchLookUpEdit
    Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView

#End Region

End Class
